ASSMX 8 9608 


VB00 
BON8 
BOOB 
08208 
OB00 
9080 


W010 
8020 
00398 
9040 
8050 
6860 
6070 
0088 


6890 


8108 


G116 . 


0120 
8130. 
6149 
9150 
9160 
0174 
¥180 
190 
9200 
8210 
8220 
8230 
824y 
8250 
8269 
8270 
9280 
9299 
0300 
0319 
9320 
0330 
0346 
8350 
0360 
8370 
8380 
8390 
0400 
0410 
942u 
0430 
9449 


Kaa KKKKRKKKEKKKK KKK KKK KKKKKRKRKRKKKKEKKKKRKAKRKR KKK KKK 


* EXATRON STANDALONE RELOCATING LOADER * 
* VERSION 1.0 10-31-78 * 


kKakKKKKKKKRKRKKKKKEKKKKKRKKKKKKKKKKKKKEKKKKK KKK KKK 


WRITTEN BY: CHARLIE PACK 
25470 ELENA ROAD 
LOS ALTOS HILLS, CA. 94922 
(415) 941-8495 EVENINGS 


PARAMETERS ARE ENTERED THROUGH SENSE 

SWITCHES AS FOLLOWS: 

BITS 7654 = LOAD ADDRESS (4K BOUNDARY) 
PROGRAM WILL BE LOADED AT @40@0H OFFSET 
FROM BEGINNING OF 4K BLOCK. 

BITS 3218 = ADDRESS OF ESF CONTROLLER BOARD 
(4K BOUNDARY) 

FOR EXAMPLE: SENSE SWITCHES SET TO 109011918 

WILL LOAD PROGRAM AT 94@@0H AND LINK TO ESF 

UTILITY AT BAOOOH. | 


* OF FF OF OF FF OF Fe OF Ot OH OO OM OH 


RETURN CODES 


RC 7 EQU Q7H CAN'T AUTOSTART 

RC8 EQU O8H BAD MEMORY 

RC9 EQU 99H BAD SENSE SWITCH VALUE 
RC1@ EQU 0 AH CONTROL CODE ERROR 

RCl1 &QU QBH UNKNOWN EXTERNAL REFERENCE 
RC12 EQU QCH UNEXPECTED END OF FILE 


* ENTRY POINTS TO ESF UTILITY (RELATIVE TO ZERO) 
* 

ESFUT EQU ) 

ECAT EQU ESFUT+@@88H CATALOG ROUTINE 

EGET EQU ESFUT+00BH "GET" ROUTINE 

ESAV EQU ESFUT+Q00EH "SAVE" ROUTINE 

ECER EQU ESFUT+@11H “CERTIFY ° ROUTINE 

EWTP EQU ESFUT+@14H°WIND TAPE* ROUTINE 


* 


* OTHER EQUATES 
*& 

SYMLN EQU 5 
PSW  EQU. 6 
SP EQU 6 


SYMBOL LENGTH 
PROGRAM STATUS WORD 
STACK POINTER 


‘000 
—— 888) | 
9884 

—— «6804 
— OAO5. 

88087 
0808 


899B 


6@80B 


888D 
BOOF 
@@11 
9814 


OG14— 
— 8814— 


8814 


(8828. 


Q017. 
8018 
8218 


QO1F 


ND 


414 


AB 


FP 
FF 
2 11 


EF 


F3 


45 


0B ger AO 
oo 


a0 


92. 
02 


9458 * | 
Aaan START Di- 
A470 IMP 
W480 8 | 
0490 RSTRT DI 
8500 | IN 
0516 MOV 
8520 JMP 
09530 * 
8548 CHKSW MVI 
0552 IN 
3560 — CPI 
6570 WAIT JINZ 
A580 * | 
A590 * 
96090 * ae 
8618 INFCB LXI 
8620 —  XRA 
06 32 LXI 
9640 MOV 
0650. INX 
0669 MVI 
9670 -INX 
0680 — HOV 
H690 INX 
0700 MOV 
0719 INX 
0720 MVI 
0732 MOV 
0740 MOV 
0758 SHLD 
37 6@ SHLD 
8778 DCX 
8788 SHLD 
8798 SHLD 
8828 SHLD 
J81g SHLD 
A820 * | 
A830 MOV 
v34e ANI 
685@ ADI 
086 MOV 
6870 MVI 
a8so SHLD 


— CHKSW 


- AUTOSTART ENTRY POINT 


> _ RE-START ENTRY POINT 


EBH  c, 
B,A  B=SENSE SWITCH DATA. 


INFCBR 


B,@ABH DEFAULT PARAMETERS 
Q@FFH INPUT SENSE SWITCH PORT 
OFFH ARE SENSE SWITCHES INSTALLED? 
WAIT YES, WAIT HERE FOR USER TO 
ENTER PARAMETER VALUES 
INTO SENSE SWITCHES. 


SP,MNSTK LOAD STACK POINTER 
A INITIALIZE FCB - 


H,FCB 
M.A FCBRC=0 
M,'E' FCBOP 
H — 
M,A  FCBFP=@ 
ae , 
M,A FCBID=@ 
H 
M,'R' FCBTY 
i,A | 
L,A  HbL=8 
FCBEN © 
ERTEN © 
H HL=@FFFFH 
FCBBG. 
FCBAS 
FCBER 
ERTPG 
A,B ACC.=SENSE SWITCH DATA 
@FQ@H MASK BITS 7654 
4 FOR OFFSET OF @40@H 
H,A 7 
L,@ HL=LOAD ADDRESS 
FCBBG SAVE IT IN FCBBG 


9899 


0046 78 0902 MOV A,B  ACC.=SENSE SWITCH DATA 

0047 E6 OF 9918 ANI @FH MASK BITS 3210 | 

6849 17 8920 RAL; SHIFT INTO LEFT NYBBLE 

004A 17 0930 RAL 

O04B 17 0949 RAL 

904C 17 8950 RAL 

O024D FE 80 9960 CPI 80H UPPER 32K SPECIFIED? 

O@04F DA C6 Ol 0970 Jc BADSW YES 

8052 9980 * 

0052 0999 * ACC. NOW HAS HIGH ADDRESS BYTE OF CONTROLLER. 
0052 1086 * THIS NEXT ROUTINE RELOCATES THE ENTRY POINT 
0052 1919 * TABLE TO POINT TO THE ESF UTILITY ROUTINES. 
0052 1928 * IT ALSO RELOCATES THE INSTRUCTION LABELLED 
0052 1038 * "CESFG" AND THEN CALLS THE ESF "GET" UTILITY. 
9052 1040 * 

0052 GE 87 1052 MVI C,SYMLN+2 LENGTH OF TABLE ELEMENT 
0854 11 D5 92 1060 LXI D,ENTEN ENDING ADDR OF TABLE 

Q057 21 BB #2 1678 LXI H,ENTBG+SYMLN+1 BEGINNING ADDR 
@O5A 77 | 1080 RENT MOV M,A REPLACE HIGH ADDRESS BYTE 
605B 06 O02 1990 MVI B,@ 

985D a9 1100 DAD B POINT TO NEXT BYTE 

QO5E 47 1110 MOV B,A SAVE REPLACEMENT BYTE 

OO5F EB 1120 XCHG 

0068 CD 87 #2 1138 CALL ADCMP CHECK IF PAST END 

0063 EB 1140 XCHG 

0064 78 1150 MOV A,B RESTORE REPLACEMENT BYTE 
0065 DA 5A 20 1160 JC RENT LOOP UNTIL DONE 

0068 1176 * 

0068 32 71 26 1188 STA  CESFG+2 RELOCATE "CESFG" INSTRUCTION 
Q86B 21 F3 @2 1190 LXI  H,FCB HL=&FCB 

OO6E 40 1200 MOV B,B LOADER CONTROL BYTE 

QO6F CD OB -BB- Bd 1216 CESFG CALL EGET CALL ESF "GET" UTILITY 

Q072 DA D201 1220 JC ABORT JUMP IF ANY ERRORS 


0075 


F8 


a2 


2 
9b 


08 


| 90 
‘OD 


81 


98 


90 


Ol 


90 
gl 
~—08 
(8B 


92 


09 
08 


a0 
a1 
a0 


92 
81 


00 
G2 


ol 
00 


008 


1230 | | | - 
1249 * FIND EXTERNAL REFERENCE TABLE 


1258 


1270 
1280 


1299 * | 
1366 FINDL 
1319 - 


1328 
1338 


* 


* | 


* . 


(1268 ‘FIND cee 


_ XCHG 


LDAX — 


CALL ¢ 
CPI 


ee [os 


1340 
1350 
1360 


1379 


1388 CTL11 


1399 
1409 


1418 
1420 
—~=1430 


1449 


1478 


1489 
149g 


1580 


1518 CTLID 
1520 
1538 


1548 


: 1558. 
— 1568 


1570 


~ 1580 
1599 


1680 
1610 
1620 
1630 
1640 
1650 
1660 
1678 
1680 
1698 
1788 


1730 
1740 


1758 
1768 


* 


JZ 


“CPI 


JZ 
JMP 


MVI 


“MOV 


DCR 


CALL 
Jc 


 JMP 


* 


1450 CTLI15 
14690 


CALL 
JC 


CALL 


Jc 
IMP 


te 


LHLD 


INX 


— MOV 


CT1D2 C 


1718 © 
1728 


NEXT1 


-FCBBG oe 


DRsPROCUAN i COUNTER —> 
LOAD FIRST PROGRAM BYTE 


L cer FUNCTION (1-15) IN acc. 


POINT TO END OF INSTR. 


D TYPE 5 — GET COUNT IN BC 


POINT TO END OF DATA 


HAS AN EXTERNAL REFERENCE 


TABLE ALREADY BEEN FOUND? 
YES - ERROR 


| GET COUNT IN BC 


JUMP IF END OF PROGRAM 


IS COUNT > 255? 


YES 
IS COUNT >= SYMBOL LENGTH? 
NO - ERROR 


CH POINT TO FIRST BYTE OF TABLE 


JUMP IF END OF PROGRAM 


SAVE BEGINNING 


ADDRESS OF EXTERNAL REF, TABLE 


POINT TO END OF TABLE 


JUMP IF PAST END OF PROGRAM 
SAVE ENDING ADDR OF TABLE 


1 GET NEXT CONTROL CODE 


JUMP IF END OF PROGRAM 


QBE2 
OOE 

QVE4 
BBE 
OBES 
OBES 
QBVEC 
OOEF 
DOFO 
OOF1L 
O8F3 
OOF6 
OOF6 
OOF6 
OOF6 
OOF6 
QOOF6 
BOF6 
QOF6 
OOF9 
DOFA 
AOFB 
OOFB 
OOFE 
0100 
0103 
0195 
0198 
B1GA 
G10D 
O10F 
B112 
9114 
0117 
O11A 
B11A 
B11A 
®11D 
G12 
G123 
9126 
9129 
8129 
912C 
O12F 
8132 
9135 
0138 


OA 
CB 


FA 
Fl 


OC 


CB 


F8 


O01 


02 
B2 


91 


a2. 


1778 
178@ 
1798 
1800 
1819 
1820 
1338 
1840 
1852 
1860 
1870 
1880 
1890 
1908 
1910 
1920 
1930 
1940 
1950 
1960 
1979 
1980 
1998 
2800 
2819 
2020 
2030 
2040 
2650 
2960 
207/20 
2080 
2090 
2180 
2119 


2128 


2138 
2149 
2158 
2162 
2178 
2180 
2190 
22008 
2219 
2220 
2238 
2249 


* 


INCTI1 
INCT2 


de | 
ENDIA 


ENDIC 


ENDILE 


+ + + F & & 


RELOC 


RLOOP 


CTL24 


DCX 
DCX 
MVI 
JMP 


LHLD 
SHLD 
DCX 
DCX 
MVI 
JMP 


LHLD 


D 
D 


A,RC1® ERROR 


SAVER 


FCBEN 


ERTEN SAVE ENDING ADDR OF TABLE 


D 
D 


A,RC12 ERROR CODE 
SAVER 


FCBBG 


D 


OPCTL GET FUNCTION 


2 
CTL22 


GETAD 
DONE 
ADDBC 
DONE 
CTL21 


GETCH 
DONE 
GETAD 
DONE 
CTL21 


POINT BACK TO COUNT FIELD 


DE=PROGRAM COUNTER 
GET FIRST PROGRAM BYTE 


(1-15) 


GET COUNT IN BC 
JUMP IF END OF PROGRAM 


POINT 


TO END OF DATA 


RE-LOCATE ADDRESS CONSTANTS AND RESOLVE 
EXTERNAL REFERENCES. 
IS AN EXTERNAL REFERENCE IF ITS RELOCATED 
VALUE FALLS INSIDE THE EXTERNAL REFERENCE 
TABLE. 


AN ADDRESS CONSTANT 


IN ACC. 


JUMP IF PAST END OF PGM 


GET INSTR. 


CODE 


JUMP IF END OF PROGRAM 
NON-RELOC. DATA TO BC 
JUMP IF END OF PROGRAM 


9138 
6138 


 *§13E : 
—g14i ¢ 


0142 


0142— 


0144 


0147 ¢ 


@14A 
014B 


914C I 


O14F 
0158 
0151 
0154 
9155 
0158 
9159 
915C 


815C D5 


915D 
Q15E 


0161 


0162 


8163 


8165 
8167 
0168 
8169 
B16C 
D16F 
8178 
0171 
0174 
6174 
0175 


0176 | 


177 
8178 
Q17B 
g17C 
g17D 


B17E 


6181 


0181. 


9182 
9183 
9184 
9185 
9186 
9187 


9188 
— 918B 


EA 


Ba 
Fe 


EF 


07. 


8B 


Fi 


07 
8B 
B2 


00 
65 


D4 


07 


AO 


2 98 


76 


3F 


G2... 


02 


02 


el 


B2 
02 


G1 


02 


62 


82 


ol 


81 


01 


Bl 


2250 * _ 
2260 CTL23 CALL 


2270 


2300 


* 


22800 
— 2290 


2316 
2329... 


23308 
23408 
2358 


2360 


2370 
2380 


2390 — 


2400 


2410 
2429 
2430 


2440 


2458 
24690 


2470 
2480 
2490 
2500 


2510 
2520 


2530 
—-2548 
—62558 


2568 


2570 
2580 


2590 
2608 


— 2618 
— 2620 


2630 
2640 
2650 
2668 
26706 
2688 
2698 


2760 
2718 
2720 


2730 
2740 


CT23A 


CT23B 


2758 - 


2760 
2770 


2780. 


GETAD GET ADDR IN BC 


_ DONE JUMP IF PAST END OF PGM 
D FCBBG ADD BEGIN. ADDR TO _—~ 
9 ~=B ADDRESS IN INSTRUCTION 

_ ERTBG IS RE-LOCATED ADDRESS 

-ADCMP BELOW EXTERNAL REF. TABLE? 
es : | | 
CT23D YES, ADDR NOT AN EXTERNAL 
D . 
ERTEN : 

IS RE-LOCATED ADDRESS | 

ADCMP ABOVE EXTERNAL REF. TABLE? 
: = | 
cT23D_ YES, ADDR NOT AN EXTERNAL 
D —« (SP) =PROGRAM COUNTER 


 DE=ADDR OF EXTERNAL NAME 
H, ENTBG ADDR OF ENTRY POINT TABLE 


POINT TO RIGHTMOST BYTE OF 
ENTRY POINT TABLE ‘ELEMENT 
D,ENTEN=1 | 


ADCMP ADDRESS COMPARE DE VS. HL 


H RESTORE ADDR OF EP TABLE ELEMENT 
D RESTORE ADDR OF EXTERNAL NAME 
CT23G JUMP IF PAST END OF EP TABLE 
H NOTE = REG. C STILL HAS SYMLN 
D COMPARE EXTERNAL NAME TO 

M - NAME IN ENTRY POINT TABLE 
CT23F JUMP IF NOT MATCHED 

oe 

ce 

CT23B 

A,M NAMES MATCH — SET HL=(HL) 

H 

H,M 

L,A HL=ADDR OF EXTERNAL SUBRTNE 

a | 

D —«SCLEAN UP THE STACK 

D |‘ DE=PROGRAM COUNTER 

CT23E 


018B 
G18E 
O18F 
0198 
0191 
0192 
8193 
6194 
8195 
0198 
0198 
8199 
Q19A 
919C 
819D 
B1AG 
B1AG 
Q1Al 
B1A2 
G1A3 
@1A5 
A1A8 
O1A8 
@1AB 


O1AE © 


@1B1 
Q01B4 
B1B7 
01B8 
Q1BA 
@1BC 
O1BF 
G1Cl 
G1C3 
B1C4 
@1C6 
01C6 
G1C8 
@1CB 
@1CC 
B1CF 
01D2 
@1D3 
91D5 
91D8 


F8 


AE 


07 
61 


D2 


Ol 


O01 


01 


81 
01 
Ol 
00 
92 


01 


O01 


G2 
92 


Ol 


2798 
2800 
2818 
2820 
28380 
2849 
2850 
2869 
2878 
2880 
2890 
2900 
2910 
2920 
2930 
2948 
2958 
2960 
2970 
2980 
2990 
3602 
3019 
39 28 
3030 
3849 
3058 
3060 
3870 
3880 
3098 
3190 
31190 
3120 
3136 
3142 
3158 
3168 
3170 
3188 
3190 
3200 
3210 
3220 
3230 


CT23F 


CT23G 


* 


BADSW 
SAVER 


ERROR 
ABORT 


HALT 


MVI 
JMP 
XCHG 
SHLD 
STA 
CMA 
OUT 
JMP 


FCBBG ADD RE-LOCATION FACTOR TO 


B ADDRESS IN INSTRUCTION 
D F 

A,L SET (DE=-1)=HL -— STORES 

D NEW INSTR. ADDRESS 

D 

A,H 

D 

CTL21 

H HL=POINTER TO EP TABLE 

D DE=ADDR OF EXTERNAL NAME 
C,SYMLN+2 

B POINT HL TO NEXT ELEMENT 
CT23A 

D DE=PROGRAM COUNTER 

D 


A,RC11 ERROR RETURN CODE 
SAVER 


GETCH GET NEXT PROGRAM BYTE 
JUMP IF END OF PGM 
GETCH GET NEXT CTL CODE 

LOOP BACK IF NOT END 
HL=STARTING ADDR | 
ACC.=FIRST BYTE OF PROGRAM 
CHECK FOR VALID PROGRAM ID 
A,RC7 ERROR RETURN CODE 
ERROR JUMP IF NOT VALID PGM ID 
A,@FFH SHOW ZERO RETURN CODE IN 
OFFH DATA LIGHTS OF IMSAI 840890 
; JUMP TO PROGRAM 
0 SPACE FOR PATCH 


ERROR RETURN CODE 


; DE=ERROR ADDR 

FCBER SAVE ERROR ADDR IN FCB 
SAVE RETURN CODE IN FCB 

; SHOW ERROR RETURN CODE IN 
DATA LIGHTS OF IMSAI 8982 
AND SOFT HALT 


@1p8 


@1D8 


81D8 
81D8— 


81D8 


@1D8— 


@1D9 


B1DA 
@1DB~ 


G1DC 
@1DD 


Q1DE- 


@1El 
B1E2 


Q1E5_ 
Q1E6. 
Q1E7 ! 


V1E8 
B1E9 
O1EA 


B1EA 


Q1EA 


@1EA 
@1ED 


Q1EE. 


O1EF 


~O1F2 


B1F3 


O1F4_ 


F4 61 


F461 


3246 
—  - 3250 
—-3268° 
3278 
3280 © 
3298 
3318 
3320 


3330 


3340 


3358 


(3360 


3370 
3389 


* ADD VALUE IN BC TO PROGRAM COUNTER IN, DE. 


* EXIT: BC PRESERVED; 


HL=NEW PGM COUNTER 


* CARRY FLAG OFF = DE IS ALSO NEW PGM CTR_ 


* 
* 
*® 


ADDBC 


3398 © 


3406 
3410 
3420 
3430 
3446 
3450 
3460 
3470 


3480 GE 


3499 
3500 


3510 


3520 


3530 


MOV 
MOV 


CARRY FLAG SET = NEW PROGRAM COUNTER IS 
‘BEYOND END. OF PROGRAM; 


| DE UNCHANGED 


HB | 

Lc 8 - 

D HL=NEW PGM CTR | 

- RETURN IF PAST FFFF 


D 
FCBEN 
ADCMP PAST END OF PGM? 
D 

RETURN IF YES 
D,H | 
E,L ELSE, DE=NEW PGM CTR 


2-BYTE ADDR OR COUNT IN BC. 


GETCH 


C,A 


GETCH 
B,A 


FA 02 
97 82 


83 62 


FF 


3540 
3556 
3560 
3578 
3586 
3596 
3608 
3610 
3620 
3630 
36 48 
3650 
3668 
3679 
36890 
3690 
376¥ 
3716 
3720 
3730 
3740 
3750 
3766 
3770 
3780 
3790 
3800 
38180 
3820 
3830 
3849 


3850 


3868 


ENTRY: DE 
BC, 

EXIT: BC, 
ACC. 


BYTE 


+ + + b&b & F Fe HOF 


GETCH PUSH 
LHLD 
CALL 
POP 
JNC 
XRA 
INX 
LDAX 
RET 
ORI 
Src 
RET 


GETCX 


+ + & H F 


ADCMP MOV 
CMP 
RNZ 
MOV 
CMP 
RET 


GET NEXT PROGRAM BYTE IN ACC. 


= PROGRAM COUNTER 


HL 


DON'T CARE 


HL PRESERVED 


CARRY FLAG OFF 


= DE INCREMENTED; 


HAS NEXT PROGRAM BYTE 


H 


CARRY FLAG SET 
OF PROGRAM; 


FCBEN 


ADCMP AT LAST BYTE OF PROGRAM? 


H 
GETC 
A 


OF FH 


A,D 


x 


= DE POINTS TO LAST | 
ACC. DESTROYED 


YES 
NO, RE-SET CARRY 
INCR. PROGRAM COUNTER 


PROGRAM BYTE TO ACC. 


SET CARRY FLAG 


COMPARE CONTENTS OF D-E WITH CONTENTS OF H-L. 
RESULT IS SHOWN BY CARRY AND ZERO FLAGS. 
CARRY FLAG IS SET TO 1 IF H-L > DE, 


D:H 


 920b 


 - §28D 
@20D 
Q20D_— 


820D 


@28D 
920D 
@298D 
Q20D 


O20E 


020F 
@212 
9213 
g214 
8215 
8216 
8218 
8219 
O21A 
6218 
8215 
8220 
0221 
8222 
0223 
0224 
8227 
9229 
622A 
8228 


~—822C 


Q@22C 


G22C © 


922C 
G22C 
B22C 
O@22C 
922D 
922F 
0231 
9233 
0235 
9237 
@239 


923B 


023D 
Q23F 
0241 
0243 


~—8245 
— 6247 


824d. 


9249 


Q24B 


~O24F 


2F 


00 


27 
FQ 


29 


OF 


ON, 


11 
21 


1 il 


21 
ll 


21 


il 
21 


B2 


G2. 


G2 


31 


21 
31 
21 
31 


21 


31 
21 


3870 
3880 * 
3898 * 
3900 
3918 
3929 
39390 
3940. 
Hed 


3960 
3970 
3980 
3999 
4900 
4010 
4026 


4030. 


4049 
4950 
4068 
4070 


—~-4880— 


4990 
4100 
4110 
4129 
4130 


4140 
4158 
4160 


4170 


«4188 


4190 
4200 
42190 


4220 


4239 
4249 
4250 
4260 
42708 
4280 


4290 © 


4300 
43190 
4320 
4330 
4340 
4350 
4360 
4378 
4380 
4390 
4400 


4410 


* ie tee 


+ oF + Oe OF 


‘TION (1, 
AT ENTRY: 


OAT EXIT: 


OPCTL PUSH 
PUSH 


IMP 
ANI 
POP 
POP 
RET 


OPCT3 
OPCTX 


DB 
DW 
OPTBL DW 


2, OR 3 


OP COD 
BC, DE, 


~ACCUMU 


BC, DE, 


A,M 
OPCT3 


OFOH © 


49H 
MODEN- 
8111348 
@2111H 
D11FI1H 
O@2111H 
O11F3H 
G@2111H 
O11F1H 
Q2111H 
QO31F3H 
9211148 
Q31F1H 
@2111H 
@31F3H 
Q92111H 
O31F1H 
O2111H 


‘THIS ROUTINE GETS. THE LENGTH OF AN INSTRUC- 


), OR A VALUE WHICH CORRES~ 


PONDS TO A LOADER CONTROL BYTE. | os 


E OR CTL BYTE IN ACCUM. 
HL = DON'T CARE. 

LATOR HAS A VALUE FROM 1 TO “15. 
~#AL Pree ane 


RE=SET CARRY | 
A=A/2, CARRY FLAG Is REMAINDER 
SAVE REMAINDER 


ADD OFFSET 
RESTORE CARRY FLAG 


CARRY SET=TAKE RIGHT NYBBLE 
ELSE TAKE LEFT NYBBLE 


THIS TABLE HAS ONE NYBBLE FOR EACH OF 256 
POSSIBLE OP CODES, BEGINNING WITH ZERO AND 
INCREMENTING THROUGH HEX FF. 

NOTE - BYTE PAIRS REVERSED DURING ASSEMBLY! 


“LOADER CONTROL BYTES 


OPTBL 
020-83 
04-07 
08-0B 

 OC-OF 
10-13 
14-17 
18-18 
1C-1F 
29-23 
24-27 
28-28 
2C~2F 
30> 33 
34-37 
38-3B 
3C=3F 


624F 
9251 
8253 
8255 
0257 
6259 
9258 
825D 
025F 
9261 
0263 
6265 
6267 
0269 
§26B 
026D 
026F 
026F 
Q271 
8273 
8275 
8277 
8279 
027B 
@27D 
O27F 
6281 
0283 
6285 
0287 
8289 
028B 
828D 
028F 
Q28F 
9291 
9293 
9295 
9297 
8299 
6298 
829D 
029F 
62A1 
92A3 
62A5 
62A7 
62A9 
0 2AB 
62AD 
0 2AF 


91141H 
@11114 
Q1115H 
O1111H 
@F111H 
91111H 
Q1F11H 
@1111H 
911114 
@11D1H 
911114 
G@1lI1FH 
911114 
@11114 
G@1111H 
O1F114H 


@11114 
G1111H 
@1111H8 
O11.11H 
O11114 
9111145 
@1111H 
®11114H 
O11114 
O11114 
0111148 
@1111H 
O1111H 
O91i1l1l1H 
Q1l111ii 
911114 


93311H 
9213148 
Q3F11H 


92133H 


8321148 
921318 
Q321FH 
@213FH 
0311148 
92131H 
@3111H 
0213FH 
O@3111H 
Q92131H 
®3111H 
O@213FH 


40-43 
44-47 
48-4B 
4C-4F 
59-53 
54-57 
58-5B 
5C-5F 
60-63 
64-67 
68-6B 
6C-6F 
70-73 
T4—77 
78-78 
T1C=7F 


88-8 3 
84—87 
88-8B 
8C-8F 
98-93 
94-97 
98-9B 
9C-9F 
AQ-A3 
A4-A7 
A8-AB 
AC-AF 
BO-B3 
B4-B7 
B8-BB 
RC-BF 


CQO-C3 
C4-C7 
C8—CB 
CC-CF 
D¢-D3 
D4-D7 
D8-DB 
DC-DF 
E@-E3 
E4-FE7 
E8-EB 
EC-EF 
FQ-F3 
F4-F 7 
F8—-FB 
FC-FF 


BZAE 


 @2AF 


— O2AF 
«9 2B9 

9282 
02B2 
8 2B2 


Q2Bi 


G2B9° 


0 2BE 
@2Co 
g2C5 
@2C7 


@2CC 
Q2CE 


92D3. 


82D5 
9 2D5 
02D5 
g2D5 
@2D5 
02D5 
82D5 
02D5 
9 2D5 
Q2D5 
g2D5 
(@2D5 
02D5 
@2D5 
92D5 
@2D5 
@2D5 
82D5 
g2D5 


@2D5 


6D 
23 00 


45 a al 


14 pee 


= 


4938 
4949 
4958 * 
— 4968 
4970 

4980. 
4990 
5000 


5010 
5020 


5030 


50408 


5850 
5268 


5876 
5886 


5890 


«5108 
5118 


5120 
5138 
5140 
5158 
5160 


5176 


5180 
5198 


5200 


5218 


+5220 
«$230 
5248 


5258 
5260 
5278 
5280 


Ps 


* ‘ENTRY POINT TABLE FOR ESF UTILITY VERSION 3. 


SETAD DB  86DH_ LOADER CONTROL BYTES 
DW | ENTEN-ENTBG 


a 


ENTBG EQU §$ 


ASC 'ECAT ' 


DW = ECAT 
“ASC ‘EGET '' 


DW EGET 
ASC '‘ESAV ' 


DW -ESAV: 
ASC 'ECER ' 
DW ECER 
ASC 'EWTP ° 


DW EWTP | 
ENTEN EQU 3 
ae EQU $8 


™ SYSTEM WORK AREA | 


i -EQU  START+0300H-1 TOP OF WORK AREA 
MNSTK EQU  RAM=16 TOP OF STACK + 1 
ERTBG EQU  RAM=16 BEGIN. ADDR OF E.R. TABLE © 
ERTEN EQU  RAM=14 ENDING ADDR OF E.R. TABLE 
FCB EQU  RAM=12 FILE CONTROL BLOCK 

FCBRC EQU FCB+@@ RETURN CODE 

FCBOP EQU FCB+@1 OPTION CODE 

FCBFP EQU FCB+@2 FILE POSITION 

FCBID EQU  FCB+03 FILE ID 

FCBTY EQU  FCB+04 FILE TYPE 

FCBBG EQU FCB+#5 BEGIN. ADDR 

FCBEN EQU  FCB+@7 ENDING ADDR 

FCBAS EQU  FCB+09 AUTOSTART 

FCBER EQU  FCB+1ll DATA ERROR ADDR 


ABORT 
ADCMP 
ADDBC 
BADSW 
CESFG 
CHKSW 
CT1D2 
CT23A 
CT23B 
CT23D 
CT23E 
CT23F 
CT23G 
CTLI1 
CTL15 
CTLID 
CTL21 
CTL22 
CTL23 
CTL24 
CTL25 
CTL2D 
DONE 

ECAT 

ECER 

EGET 

ENDIA 
ENDIC 
ENDIE 


ENTBG 


ENTEN 
ERROR 
ERTBG 
ERTEN 
ESAV 
ESFUT 
EWTP 
FCB 
FCBAS 
FCBBG 
FCBEN 
FCBER 
FCBFP 
FCBID 
FCBOP 
FCBRC 
FCBTY 
FIND 
FINDL 


G1D2 
0207 
91D8 
G1C6 
OO6F 
000B 
0O8C4 
0161 
0176 
918B 
O18F 


8198 


G1A0 
8@8D 


OO9A: 


BB8A9 
Q1AE 
@1A8 
0138 
0129 
G11A 
B11A 
G1B4 
90888 
O011 
98BB 
OBES 
OOF 
OOF1 
92B2 
92D5 
@1CF 
O2EF 
O2F1 


OO0E 


0000 
0814 
82F3 
Q2FC 
G2F8 
O2FA 
Q2FE 
O2F5 
02F6 
O2F4 
G2F3 
O2F7 
0875 
OO7A 


5299 


2348 
1470 


2448 


2180 


2178 


5836 


1668 
1468 
2480 
2550 
3178 
1518 
1738 


1190 


0880 
1830 
3190 


2429 2568 3390 3668 


1718 2160 


2246 


2210 


1589 
4970 
4970 


1690 
1848 


1260 
3370 


2880 


2236 


2330 
2400 


1968 
3650 


2278 3030 


2280 2808 3068 


 GETAD 
GETCH 
GETCX 


HALT 
INCT1 


-INCT2 


INFCB 
MNSTK 
MODEN 
NEXT1 
OPCT3 
OPCTL 


OPCTX 
OPTBL | 


PSW 
RAM 
RC1O— 
RCll 


RC12 


RC7 
RC8 
RC9 
RELOC 
RENT 


~ RLOOP 


RSTRT 
SAVER 
SETAD 
SP 

START 


SYMLN 


WAIT 
FCHK 


Fe 


G1EA 
~O1F4 
6203 
~61D5 

QOE2 © 
GOE4 


0814 


O2EF 


82D5 


B8D9 


9227 
928D 
9229 
922F 


(9086 
 *O2FF 


OOOA 
008 


BBBC . 


0807 
9808 
0009 
QOF6 
GO5A 
QOFB 
8004 
G1iCB 


O2AF — 
—« 8886 
0000 
8005 ~~ 
6011 


3008 6920 


 -: 1450 
1650 


3680 


3230 
1648 
1368 


9520 
9610 
4250 
1430 


4870 


1398 


— 4130 


3988 
4910 


1880 


2998 


1878 
38090 


3160 


1750 
1168 


3850 


1818 
9610 
1050 


1570 2140 22280 2260 | 
1740, 2200. 3826 3840 3480 3510 


1568 


1490 
2900 


4250 
4050 


1882 3800 


18798 1638 2528 2928 


8570 


1598 
16190 
1730 
1968 
1420 


1308 


0600 


1410 


2748 
1989 
4248 
1848 
1470 
1780 
9760 


0630 


3660 
0740 
358@ 
3689 
9980 


3210 
3198 
9510 
2330 
2319 
2420 
2499 
2680 
2700 
0548 


~—~=1820 


3138 
1029 
3299 
4509 
1458 
2058 
30198 
3388 
49990 


1958 


4300 
4320 
3430 
4360 
4388 
0730 
0530 


2350 
2440 


0586 


2908 
4420 
2820 
4480 
4520 
2590 
4546 
4560 
4580 
4259 
3239 
4320 
4340 
4349 


4380 


1638 


4420 
4460 
2840 
4500 


4520 
4560 
4580 
4690 
4280 
4288 


4360 


2758 


2290 


2860 
2910 


30298 
2388 
3968 
1798 


3810 


3530 


4540 © 


4300 


2998 


2400 


2868 
3448 


3140 
2460 
3986 
1840 


3850 


4460 


3490 


3540 


3249 
3758 
1980 


3899 


4488 


3380 3398 3598 4159 


1920 2798 3000 3368 3500 
3930 
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